Personal Computer World 2009 February/PCWFEB09.iso/Software/Linux/Kubuntu 8.10/kubuntu-8.10-desktop-i386.iso/casper/filesystem.squashfs/usr/share/doc/radeontool/lightwatch.pl

Perl Script | 2004-02-03 | 846b | 32 lines

#!/usr/bin/perl -w
use strict;

#
#  This handy script watches when the screensaver activates and
#  toggles the LCD backlight.  You won't see more than a
#  second of the screensaver, so you might as well chose one
#  which consumes few MIPS/battery.
#
#  You will probably want to make this script owned by root
#  and SUID.  Also you will need the perl-suidperl package installed
#  for RedHat systems.
#     chown root lightwatch
#     chmod u+x lightwatch
#

delete @ENV{'IFS', 'CDPATH', 'ENV', 'BASH_ENV'};
$ENV{'PATH'} = '/bin:/usr/bin:/usr/local/bin:/sbin:/usr/sbin:/usr/local/sbin';

$<=0;  # become root not just effective root

open(XS,"/usr/X11R6/bin/xscreensaver-command -watch|") or die;
while(<XS>) {
   if(/^BLANK/i) {
      system("radeontool light off");
   } elsif(/^UNBLANK/i) {
      system("radeontool light on");
   }
}